<%

Function torneio_excluir(conexao, id)

		str = "Select id FROM torneios_grupos where id_torneio="&id
    	Set rs = conexao.Execute(str)
		
		Do while not rs.eof
		
			id_grupo = rs("id")
		
			str = "DELETE from torneios_jogos where id_grupo="&id_grupo
  			Set rsD = conexao.Execute(str)	
			
			str = "DELETE from torneios_lista where id_grupo="&id_grupo
  			Set rsD = conexao.Execute(str)	
		
		
		rs.MoveNext
		Loop
		
		str = "DELETE from torneios_grupos where id_torneio="&id
  		Set rsD = conexao.Execute(str)
		
		str = "DELETE from torneios_clubes where id_torneio="&id
  		Set rsD = conexao.Execute(str)
		
		str = "DELETE from torneios_geral where id="&id
  		Set rsD = conexao.Execute(str)
		
		

End Function

%>
